home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invenzioni & Inventori
/
Invenzioni and Inventori (Eclectica Publishing) (1996).ISO
/
invenzio
/
timeline.dir
/
00402_Script_402
< prev
next >
Wrap
Text File
|
1983-01-29
|
1KB
|
29 lines
on chiamamenubar
global men,cisei
set cisei to true
if objectP (men) then forget men
set men to window ("menubar")
if the machinetype < 255 then
set the filename of men to ("invenzioni:invenzio:icoinv.dir")
else
set a to char 1 of the moviepath
set the filename of men to (a & ":\invenzio\icoinv.dir")
end if
-- set s to rect (the stageLeft,the stageTop +420,the stageLeft+640,the stageTop + 480)
set s to rect (the stageLeft,the stageTop +10,the stageLeft+64,the stageTop + 48)
set the rect of window "menubar" to s
set the windowType of window "menubar" to 3
set s to rect (the stageLeft,the stageTop +418,the stageLeft+640,the stageTop + 480)
--repeat with uno = 1 to 15
-- set s to rect (the stageLeft,the stageTop +480-uno*4,the stageLeft+640,the stageTop + 480)
-- set s to rect (the stageLeft,the stageTop +480-uno*4,the stageLeft+640,the stageTop + 540-UNO*4)
set the rect of window "menubar" to s
open men
--end repeat
moveToFront window "menubar"
end